Imports System.Windows.Forms

Public Class frmPrint

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Cursor = Cursors.WaitCursor

        If rbCurrent.Checked Then
            Dim f As New frmCurrent
            Dim oRibs As New RibsClass
            f.BindReport(oRibs.GetRibsItem(CurrentID))
            f.ShowDialog()
        ElseIf rbCurrentView.Checked Then
            Dim f As New frmCurrentView
            Dim oRibs As New RibsClass
            f.BindReport(oRibs.GetRibsList())
            f.ShowDialog()
        ElseIf rbContactStats.Checked Then
            Dim f As New frmStatus            
            f.ShowDialog()
        ElseIf rdoDailySummary.Checked Then
            Dim f As New frmSummary            
            f.ShowDialog()
        End If

        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub frmPrint_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If CurrentID <> 0 Then
            rbCurrent.Enabled = True
        Else
            rbCurrent.Enabled = False
        End If
    End Sub

    Private Sub rdoDailySummary_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rdoDailySummary.CheckedChanged

    End Sub
End Class
